home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: R-H-S / R-H-S Tools 27 (19xx)(Reiner Hobbold Software)(DE)(PD).zip / R-H-S Tools 27 (19xx)(Reiner Hobbold Software)(DE)(PD).adf / Editor (.txt) < prev    next >
AmigaBASIC Source Code  |  1978-01-01  |  3KB  |  108 lines
  1. SCREEN 1,640,220,3,2
  2. WINDOW 1," Quizmaster    V2.0                                               Frageneditor",,0,1
  3. PALETTE 0,0,0.3,0:PALETTE 1,0,0.5,0:PALETTE 2,1,1,1
  4. nr=1:COLOR 2:DIM a$(4):DIM ant$(4):a=1
  5. LOCATE 2,2:PRINT "Alle Einstellungen werden über die Cursortasten (<- und ->) durch-"
  6. PRINT " geführt und mit [RETURN] bestätigt.":PRINT:PRINT
  7. PRINT "                                                   {Irgendeine Taste}
  8. Lpo:
  9. a$=INKEY$:IF a$="" THEN Lpo
  10. CLS
  11. Loopy:
  12. SOUND 300,1:SOUND 400,1:SOUND 600,1:SOUND 500,1:SOUND 600,1
  13. Loop:
  14. LOCATE 2,3:PRINT "Frage.Nr. > "nr
  15. PRINT
  16. Loop1: 
  17. a$=INKEY$:IF a$="" THEN Loop1
  18. IF a$=CHR$(30) THEN nr=nr+1:GOTO Loop
  19. IF a$=CHR$(31) THEN nr=nr-1:IF nr=0 THEN nr=1:SOUND 200,1:SOUND 300,1
  20. IF a$=CHR$(31) THEN GOTO Loop
  21. IF a$=CHR$(28) THEN nr=nr+10
  22. IF a$=CHR$(29) THEN nr=nr-10:IF nr<1 THEN nr=1
  23. IF a$=CHR$(28) OR a$=CHR$(29) THEN GOTO Loop
  24. IF a$=CHR$(13) THEN GOTO Wexel
  25. GOTO Loop1
  26.  
  27. Wexel:
  28. a$=STR$(nr)
  29. nr$=RIGHT$(a$,(LEN(a$)-1))
  30. GOSUB Loop2
  31. GOSUB Loop3
  32. GOSUB Loop4
  33. GOTO  Loop5
  34.  
  35. Loop2:
  36. LOCATE 5,1
  37. INPUT "  Frage >",frage$
  38. IF frage$="" OR frage$=" " THEN Loop2
  39. IF LEN(frage$)>65 THEN LOCATE 5,10:PRINT "                                                                           ":GOTO Loop2
  40. RETURN
  41. Loop3:
  42. LOCATE 8,1
  43. INPUT " 1. Antwort >",ant$(1)
  44. PRINT
  45. INPUT " 2. Antwort >",ant$(2)
  46. PRINT
  47. INPUT " 3. Antwort >",ant$(3)
  48. PRINT
  49. INPUT " 4. Antwort >",ant$(4)
  50. RETURN
  51. Loop4:
  52. LOCATE 17,2
  53. INPUT "Nr. der richtigen Antwort >",wahr$
  54. IF wahr$<>"1" AND wahr$<>"2" AND wahr$<>"3" AND wahr$<>"4" THEN GOTO Loop4
  55. RETURN
  56. Loop5:
  57. LOCATE 19,2
  58. PRINT " Alles Korrekt (J/N) ?"
  59. Loop0:
  60. a$=INKEY$:IF a$="" THEN Loop0
  61. IF a$="n" THEN GOTO Verbessern
  62. daten$=frage$+"?"+ant$(1)+"?"+ant$(2)+"?"+ant$(3)+"?"+ant$(4)+"?"+wahr$
  63. a$="df0:Fragen/QM."+nr$
  64. OPEN a$ FOR OUTPUT AS 1
  65. PRINT #1,daten$
  66. CLOSE 1
  67. LINE (0,140)-(640,200),0,bf
  68. GOSUB Cle1
  69. GOSUB Cle2
  70. GOSUB Cle3
  71. GOTO Loopy                  
  72.  
  73. Verbessern:
  74. a$(1)="Die Frage"
  75. a$(2)="Die Antworten"
  76. a$(3)="Die Nummer"
  77. a$(4)="Nichts"
  78. LOCATE 21,4
  79. PRINT " Was wollen Sie verbessern ?"
  80. Ver1:
  81. LOCATE 21,35:PRINT a$(a)"           "
  82. Ver2:
  83. a$=INKEY$:IF a$="" THEN Ver2
  84. IF a$=CHR$(31) THEN a=a-1:IF a=0 THEN a=4
  85. IF a$=CHR$(30) THEN a=a+1:IF a=5 THEN a=1
  86. IF a$=CHR$(30) OR a$=CHR$(31) THEN GOTO Ver1
  87. IF a$=CHR$(13) THEN GOTO Ver3
  88. GOTO Ver2
  89. Ver3:
  90. LOCATE 19,2:PRINT "                                                   "
  91. LOCATE 21,4:PRINT "                                                              "
  92. IF a=3 THEN GOSUB Cle3:GOSUB Loop4
  93. IF a=2 THEN GOSUB Cle2:GOSUB Loop3
  94. IF a=1 THEN GOSUB Cle1:GOSUB Loop2
  95. GOTO Loop5
  96. Cle1:
  97. LOCATE 5,10:PRINT "                                                                            "
  98. RETURN
  99. Cle2:
  100. LOCATE  8,14:PRINT "                                                    "
  101. LOCATE 10,14:PRINT "                                                    "
  102. LOCATE 12,14:PRINT "                                                    "
  103. LOCATE 14,14:PRINT "                                                    "
  104. RETURN
  105. Cle3:
  106. LOCATE 17,29:PRINT "          "
  107. RETURN
  108.